home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Demos / PowerFantasm 4.15 / Beginners guide / GUIDE EXAMPLES / EXAMPLE4.S < prev    next >
Encoding:
Text File  |  1996-06-21  |  987 b   |  30 lines
  1. *********************************************************
  2. *FILENAME:    EXAMPLE4.S                                  *
  3. *DESCRIPTION:PROGRAM TO ADD 3 NUMBERS TOGETHER          *
  4. *    AND PRINT THE RESULT IN A WINDOW.           *
  5. *    WRITTEN IN POSITION INDEPENDANT CODE        *
  6. *********************************************************
  7.  
  8. EXAMPLE4:    LEA    EX4_VARS(PC),A6
  9.     BSR    INIT_CURSOR    *part of io_lib.s
  10.     LEA    WINDOW_TITLE(PC),A0
  11.     BSR    OPEN_WINDOW    *PART OF IO_LIB.S
  12.     MOVE.L    A0,WINDOW_HANDLE(A6)    *OPEN_WINDOW RETURNS A HANDLE TO THE WINDOW
  13.  
  14.     MOVE.L    #10,D0    *ADD 10 AND 20 AND 30
  15.     ADD.L    #20,D0
  16.     ADD.L    #30,D0
  17.  
  18.     BSR    PRINTNUM    *part of io_lib.s - PRINTS D0
  19.     BSR    WAIT_KEY    *WAIT FOR A KEY TO BE PRESSED
  20.     MOVE.L    WINDOW_HANDLE(A6),A0    *GET THE HANDLE FOR THE WINDOW
  21.     BSR    CLOSE_WINDOW    *CLOSE THE WINDOW
  22.     RTS
  23.     INCLUDE    IO_LIB.S
  24. ****VARIABLES
  25. WINDOW_HANDLE:    EQU    0    *WINDOW HANDLE .L
  26. EX4_VARS:    DS.B    4    *SPACE FOR 1 LONG
  27. WINDOW_TITLE:    DC.B    "EXAMPLE 4",0
  28.     EVEN
  29. ************************END OF EXAMPLE4********************
  30.